home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmiSoft / Util / conv / MIDI2asm.lha / MIDI2asm / asm2MIDI.rexx < prev    next >
OS/2 REXX Batch file  |  2004-01-10  |  362b  |  13 lines
  1. /* $VER: asm2MIDI 1.0 $
  2.  * Convert assembler source to MIDI data
  3.  * © by Stefan Haubenthal 1998/99 */
  4. address command "genam quiet" arg(1)
  5. if rc>0 then exit rc
  6. call open(exe,arg(1))
  7. len=seek(exe,-36,E)
  8. call seek(exe,32,B)
  9. call open(midi,arg(1)".mid",W)
  10. call writech(midi,strip(readch(exe,len),T,'00'x)'00'x)
  11. call close(exe)
  12. address command "delete quiet" arg(1)
  13.